#Set Workign Directory
setwd("...")

hold<-read.csv("priorities.csv")

hold<-hold[order(hold$B),]

pdf("index.pdf", height=4)
b<-barplot(hold$B,space=c(0,2),beside=TRUE,horiz=TRUE,
    col=c("gray35"),
    xlab="Priority Spending Index",
    axes=TRUE, las=1, xlim=c(0,300))

text(rep(15, nrow(hold)), b[,1], hold$A, col="white", pos=4, adj=1, cex=0.85) 
dev.off()
